home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2000 September / PC-WELT 9-2000.ISO / software / prx / ktools / sendmail.exe / SendMail.vbs
Encoding:
Text File  |  2000-04-28  |  1.8 KB  |  52 lines
  1. set fs = CreateObject("Scripting.FileSystemObject")    'Dateisystem
  2. Set Mail = CreateObject("Persits.MailSender")        'Email-Versand, ASPEmail, www.persists.com
  3. Set args = WScript.Arguments            'ⁿbergebene Argumente, also die Drag and Drop Datei 
  4.  
  5. postwurf =WScript.Arguments.Item(0)
  6. Bez = fs.GetBaseName(postwurf)
  7. Mail.Subject = CStr(Bez)
  8. Mail.Host = "smtp.mail.entenhausen.dw"        ' SMTP-Mailserver, ⁿber den die E-Mail verschickt wird
  9. Mail.From = "dd@entenhausen.dw"        ' Email-Absender
  10. Mail.AddReplyTo "dd@entenhausen.dw"    
  11. Mail.FromName = "Donald Duck"        ' Absender-Name
  12. Dim Adresse (6) 'Die Zahl in Klammern lΣsst sechs Adressen zu. 
  13.                  'Sie k÷nnen diese Zahl auch erh÷hen
  14.  
  15. 'Adressliste
  16. Adresse(0)="daisy@entenhausen.dw"
  17. Adresse(1)="tick@entenhausen.dw"
  18. Adresse(2)="trick@entenhausen.dw"
  19. Adresse(3)="track@entenhausen.dw"
  20. Adresse(4)="dagobert@entenhausen.dw"
  21. Adresse(5)="gustavgans@entenhausen.dw"
  22. Adresse(6)="redaktion@pcwelt.de"
  23.  
  24.  
  25.  
  26. for i = 0 to UBound(Adresse)
  27.   Liste=Liste+"("+CStr(i)+") "+Adresse(i)+vbCr
  28. next
  29. Liste = Liste +"Bitte wΣhlen Sie eine Option [0-"+CStr(UBound(Adresse))+"]"
  30. Input = InputBox(Liste) 
  31. If Input <>"" Then
  32.    If CInt(Input)>=0 AND CInt(Input)<=UBound(Adresse) Then
  33.  
  34.     Mail.AddAddress Adresse(Input)
  35.     Mail.Subject = CStr(Bez)
  36.     Mail.AddAttachment postwurf
  37.     Memo = InputBox("Geben Sie hier eine Nachricht ein:")
  38.     Mail.Body = CStr(Memo)
  39.     On Error Resume Next            ' Fehler beim Versenden abfangen
  40.     Mail.Send                    ' Email absenden
  41.     If Err <> 0 Then            ' Fehler! Ursache ausgeben
  42.     meldung = "Email konnte nicht versendet werden: " & Err.Description
  43.     MsgBox meldung, vbExclamation
  44.     else
  45.     meldung = "Die Datei " + fs.GetBaseName(testdatei) + " wurde abgeschickt!"
  46.     MsgBox meldung, vbInformation
  47.     end if
  48.    else
  49.     MsgBox ("Die Eingabe mu▀ zwischen 0 und "+CStr(UBound(Adresse))+" liegen")
  50.  
  51. end if
  52. end If